Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

Norm
3V
3L
Lbl I
ClrText
" "
Locate 9,1,"VIDAS"
Locate 11,4,V
0C
0K
ClrText
{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}List 1
{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}List 2
Fill(0,Mat Z)
4Y
11X
If V=0
Then "xxxxxGAMExxxOVERxxxxx"
Stop
IfEnd
If L=2
Then For 5P To 17
1Mat Z[4,P]
Locate P,4,"#"
Next
2Y
IfEnd
If L=3
Then For 2Q To 6
1Mat Z[Q,7]
1Mat Z[Q,15]
Locate 7,Q,"#"
Locate 15,Q,"#"
Next
1O
0E
0A
0B
3S
Lbl P
Int (18Ran#+2)P
Int (4Ran#+2)Q
Mat Z[Q,P]=1Goto P
Locate P,Q,(S-1)2
While 1
B0 Or A01C
GetkeyK
If X=P And Y=Q
Then S+2S
If S=21
Then L+1L
Goto I
IfEnd
GetkeyK
Goto P
IfEnd
Lbl C
X+AX
Y-BY
O=S1J
GetkeyK
If J=1 And List 1[O]0
Then Locate List 1[O],List 2[O]," "
0Mat Z[List 2[O],List 1[O]
IfEnd
GetkeyK
If X>0 And X<22 And Y>0 And Y<8
Then Locate X,Y,"O"
Else V-1V
Goto I
IfEnd
GetkeyK
If Mat Z[Y,X]=1 And C=1
Then V-1V
Locate X,Y,"X"
Goto I
IfEnd
GetkeyK
1Mat Z[Y,X]
XList 1[O]
YList 2[O]
O=S0O
O+1O
GetkeyK
If K=27 Or K=53
Then 0B
A=01A
IfEnd
If K=38 Or K=73
Then 0B
A=0-1A
IfEnd
GetkeyK
If K=28 Or K=64
Then 0A
B=01B
IfEnd
If K=37 Or K=62 Or K=63
Then 0A
B=0-1B
IfEnd
GetkeyK
WhileEnd